home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
MUSIUSIC
/
PLAYERS.LZH
/
VOC_PC.LIB
< prev
next >
Wrap
Text File
|
1991-01-07
|
512b
|
17 lines
with pc_sound;
with voc_data;
package voc_pc is
subtype voice_blocks is voc_data.blocks(block_type=>voc_data.voice_data);
procedure halve(voice_block : in out voice_blocks;
automatic_gain_control : in boolean:=true);
-- if UNPACKED, compress to HALVED
procedure play(voc_block : in out voc_data.blocks);
-- will compress any UNPACKED sound to HALVED as well as playing
-- sound through PC speaker or delaying for any silent moments
end voc_pc;